home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / WINDOWS / SPEED.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-07  |  929b  |  24 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration windows displayed in extremely high speed
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBINI, EFLIBWIN, EFLIBSCR, EFLIBKBD;
  10.  
  11. var Window : WindowObjectPointerType;
  12.  
  13.  
  14. begin
  15.      Randomize;
  16.      while not Keyboard.KeyPressed do begin
  17.            New (Window, InitializeWindow (
  18.                         Random(Screen.Width div 3) + 1, Random(Screen.Height div 3) + 1,
  19.                         Random(Screen.Width div 3) + Screen.Width div 2,
  20.                         Random(Screen.Height div 3) + Screen.Height div 2,
  21.                         'My window', ThinBorder, FALSE, FALSE));
  22.            Window^.Free;
  23.      end;
  24. end.